﻿Imports InfoSoftGlobal

Partial Class BasicExample_BasicDataXML
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Generate chart in Literal Control
        FCLiteral.Text = CreateCharts()
    End Sub


    Public Function CreateCharts() As String

        'This page demonstrates the ease of generating charts using FusionCharts.
        'For this chart, we've used a string variable to contain our entire XML data.

        'Ideally, you would generate XML data documents at run-time, after interfacing with
        'forms or databases etc.Such examples are also present.
        'Here, we've kept this example very simple.

        'Create an XML data document in a string variable

        Dim strXML As String
        strXML = ""
        strXML = strXML & "<graph caption='Monthly Unit Sales' xAxisName='Month' yAxisName='Units' decimalPrecision='0' formatNumberScale='0'>"
        strXML = strXML & "<set name='Jan' value='462' color='AFD8F8' />"
        strXML = strXML & "<set name='Feb' value='857' color='F6BD0F' />"
        strXML = strXML & "<set name='Mar' value='671' color='8BBA00' />"
        strXML = strXML & "<set name='Apr' value='494' color='FF8E46'/>"
        strXML = strXML & "<set name='May' value='761' color='008E8E'/>"
        strXML = strXML & "<set name='Jun' value='960' color='D64646'/>"
        strXML = strXML & "<set name='Jul' value='629' color='8E468E'/>"
        strXML = strXML & "<set name='Aug' value='622' color='588526'/>"
        strXML = strXML & "<set name='Sep' value='376' color='B3AA00'/>"
        strXML = strXML & "<set name='Oct' value='494' color='008ED6'/>"
        strXML = strXML & "<set name='Nov' value='761' color='9D080D'/>"
        strXML = strXML & "<set name='Dec' value='960' color='A186BE'/>"
        strXML = strXML & "</graph>"

        'Create the chart - Column 3D Chart with data from strXML variable using dataXML method
        Return FusionCharts.RenderChartHTML("../FusionCharts/FCF_Column3D.swf", "", strXML, "myNext", "600", "300", False)

    End Function

End Class
